Private Sub TimerRelogio_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRelogio.Tick
        Me.lblTime.Text = Date.Now
    End Sub

Private Sub frmMDIParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TimerRelogio.Start()
    End Sub